10 IFZ>0THEN330
20 REM    MAKE STARLINE    INTRO
30 POKE53281,1:POKE53280,6:POKE646,0
40 PRINT"[147]"
50 T$="**** [198][197][197][196][194][193][195][203] [196][201][211][203][160][205][193][203][197][210] ****":GOSUB360
60 PRINT:PRINT
70 REM  WANT TO MAKE ONE?
80 PRINT"[147]"
90 T$="**** [198][197][197][196][194][193][195][203] [196][201][211][203][160][205][193][203][197][210] ****":GOSUB360
100 PRINT""
110 PRINT"  1.  [205]AKE A [198][197][197][196][194][193][195][203] DISK."
120 PRINT"      (FROM A BLANK DISK)":PRINT
130 PRINT"  2.  [210]ETURN TO [204][207][193][196][211][212][193][210]"
140 PRINT"      ([201]'LL EXPERIMENT WITH THIS LATER)"
150 PRINT"[206]OTE:  [212]HIS MAY NOT WORK WELL WITH"
160 PRINT"       [198][193][211][212][204][207][193][196] INSTALLED ([211]ORRY!)."
170 PRINT"[215]HICH?"
180 POKE198,0:WAIT198,1:GETK$
190 IFK$<>"1"ANDK$<>"2"THENPRINT"[145][145][145][145]":     GOTO170
200 IFK$="2"THEN440
210 PRINT"[147]"
220 T$="**** [204][207][193][196][211][212][193][210] [196][201][211][203][160][205][193][203][197][210] ****":GOSUB360
230 PRINT:PRINT"[147]"
240 PRINT"  [207].[203]. [201] WILL TELL YOU WHEN TO REMOVE":PRINT
250 PRINT"   YOUR [204][207][193][196][211][212][193][210] DISK AND INSERT A":PRINT
260 PRINTSPC(13)"BLANK DISK."
270 PRINT"             [208]LEASE WAIT....."
280 PRINT"            [204]OADING SOME FILES....     "
290 PRINT" [193]PPROXIMATE LOADING TIME IS 40 SECONDS."
300 OPEN15,8,15,"R0:LINESTAR ML.O=LINESTAR ML.O":INPUT#15,ER,ER$:CLOSE15
310 IFER<19ORER=63THEN330
320 GOTO470
330 IFZ=0THENZ=1:                           LOAD"LINESTAR ML.O",8,1
340 PRINT"LOAD"CHR$(34)"F.B MAKER.2"CHR$(34)",8":PRINT"RUN"
350 POKE631,13:POKE632,13:POKE198,2:END
360 REM   CENTERING
370 X=20-LEN(T$)/2:PRINTTAB(X)T$:PRINT
380 RETURN
390 REM    WAIT FOR KEYPRESS
400 POKE783,PEEK(783)AND254
410 POKE781,23:POKE782,13:SYS65520:PRINT"<PRESS A KEY>"
420 POKE198,0:WAIT198,1:GETK$
430 RETURN
440 REM   CONNNECT BACK TO HELLO
450 LOAD"HELLO CONNECT",8
460 END
470 REM   ERROR!!
480 PRINT"[147]    [215]E HAVE ENCOUNTERED AN ERROR..."
490 PRINT" [208]LEASE MAKE SURE THAT [204][207][193][196][211][212][193][210] [211]IDE 2"
500 PRINT"          IS IN YOUR DRIVE."
510 PRINT"  [208]RESS ANY KEY WHEN YOU ARE READY.."
520 POKE198,0:WAIT198,1:POKE198,0:          GOTO80